home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / educationstacks.sea / ElecMusicEncyc / background_3551.txt < prev    next >
Text File  |  1990-04-18  |  7KB  |  322 lines
  1. -- background: 3551 from stack: in
  2. -- bmap block id: 45922
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: B2
  6. ----- HyperTalk script -----
  7.  
  8. on idle
  9.   get the number of cards - 1
  10.   put it into line 1 of field cardfield
  11. end idle
  12. on opencard
  13.   hide background field "Hidden info"
  14. end opencard
  15.  
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: 2004
  21. -- rect: left=3 top=306 right=341 bottom=44
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 20098 / 20098
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: 
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   go home
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 2004
  40. -- rect: left=468 top=306 right=341 bottom=509
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 26425 / 26425
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: 
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   go next
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 3 (field)
  57. -- low flags: 00
  58. -- high flags: 0002
  59. -- rect: left=140 top=45 right=68 bottom=451
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 216
  64. -- text size: 14
  65. -- style flags: 0
  66. -- line height: 18
  67. -- part name: Entry
  68.  
  69.  
  70. -- part 4 (field)
  71. -- low flags: 00
  72. -- high flags: 0007
  73. -- rect: left=140 top=70 right=325 bottom=451
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 216
  78. -- text size: 14
  79. -- style flags: 0
  80. -- line height: 18
  81. -- part name: Definition
  82.  
  83.  
  84. -- part 7 (button)
  85. -- low flags: 00
  86. -- high flags: A004
  87. -- rect: left=3 top=23 right=75 bottom=46
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 8538 / 8538
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Find
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   domenu"Find..."
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 9 (button)
  104. -- low flags: 00
  105. -- high flags: A004
  106. -- rect: left=3 top=80 right=130 bottom=46
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 17481 / 17481
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: New
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   domenu"New Card"
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 11 (button)
  123. -- low flags: 00
  124. -- high flags: A004
  125. -- rect: left=3 top=135 right=186 bottom=46
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 20186 / 20186
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Sort
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   sort by background field entry
  137.  
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 12 (button)
  143. -- low flags: 00
  144. -- high flags: 2004
  145. -- rect: left=468 top=268 right=303 bottom=509
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 902 / 902
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: 
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   go prev
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 13 (button)
  162. -- low flags: 00
  163. -- high flags: 2004
  164. -- rect: left=468 top=230 right=265 bottom=509
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 21449 / 21449
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: 
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   go to card id 2832
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 14 (button)
  181. -- low flags: 00
  182. -- high flags: A004
  183. -- rect: left=3 top=250 right=299 bottom=72
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 1007 / 1007
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Print Card
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   answer"Do you want to print this card ?" with "No" or "Yes"
  195.   if it is "No" then exit mouseup
  196.   domenu"Print Card"
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 15 (button)
  202. -- low flags: 00
  203. -- high flags: A003
  204. -- rect: left=52 top=22 right=42 bottom=177
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Search Entry
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   global string
  216.   ask"Enter string to search for in Entry field:"with string
  217.   if it is empty then exit mouseup
  218.   put it into string
  219.   go next
  220.   find it in field "Entry"
  221.   if it is not in field "Entry" then
  222.     beep 1
  223.     go prev
  224.     answer"Sorry, couldn't find your selection."
  225.   end if
  226. end mouseup
  227.  
  228.  
  229. -- part 16 (field)
  230. -- low flags: 01
  231. -- high flags: 0000
  232. -- rect: left=461 top=24 right=42 bottom=506
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 216
  237. -- text size: 14
  238. -- style flags: 0
  239. -- line height: 18
  240. -- part name: cardfield
  241.  
  242.  
  243. -- part 17 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=460 top=24 right=56 bottom=507
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   beep 1
  258.   answer"That field can not be edited."
  259. end mouseUp
  260.  
  261.  
  262.  
  263. -- part 18 (button)
  264. -- low flags: 00
  265. -- high flags: A004
  266. -- rect: left=3 top=191 right=242 bottom=46
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 32670 / 32670
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: Scan
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   show message at 22,313
  278.   put "Click the mouse to stop the scan..."
  279.   show all cards
  280.   hide message box
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part 19 (button)
  286. -- low flags: 00
  287. -- high flags: A004
  288. -- rect: left=56 top=92 right=139 bottom=137
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 8538 / 8538
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: Hidden Info...
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   get the visible of field "Hidden info"
  300.   if the visible of field "Hidden Info" is false then
  301.     if field "hidden Info" is empty then
  302.       put "No Entry"into line 3 of field "Hidden info"
  303.     end if
  304.   end if
  305.   set the visible of field "hidden info" to not the visible of field "hidden info"
  306. end mouseUp
  307.  
  308.  
  309.  
  310. -- part 20 (field)
  311. -- low flags: 80
  312. -- high flags: 0007
  313. -- rect: left=62 top=145 right=330 bottom=311
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 0
  317. -- font id: 216
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Hidden Info
  322.